home *** CD-ROM | disk | FTP | other *** search
/ Collection of Internet / Collection of Internet.iso / msdos / lynx / source / wattcp / elib / keep.asm < prev    next >
Encoding:
Assembly Source File  |  1994-10-25  |  876 b   |  40 lines
  1. ;
  2. ;
  3. ;  Usage :
  4. ;           _keep( int status, int paragraphs )
  5. ;
  6. ;  (c) 1990 University of Waterloo,
  7. ;           Faculty of Engineering,
  8. ;           Engineering Microcomputer Network Development Office
  9. ;
  10. ;  version
  11. ;
  12. ;    0.1    7-Nov -1990   E. P. Engelke
  13. ;
  14. ;
  15.         include masmdefs.hsm
  16.         include model.hsm
  17.  
  18. codedef KEEP
  19. datadef
  20.  
  21. cstart  KEEP
  22. cpublic _keep
  23.         mov     AH, 62h                 ; get psp
  24.         int     21h
  25.  
  26.         mov     ES, BX                  ; using psp
  27.         mov     BX, ES:[2ch]            ; get environment
  28.  
  29.         mov     AH, 49h                 ; release environment
  30.         mov     ES, BX
  31.         int     21h
  32.  
  33.         mov     AH, 31h                 ; make resident
  34.         mov     AL, +@AB + 0 [BP]
  35.         mov     DX, +@AB + 2 [BP]
  36.         int     21h
  37. creturn _keep
  38. cend    KEEP
  39.         end
  40.